home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -screenplay- / shareware / abuse / lisp / chat.lsp < prev    next >
Lisp/Scheme  |  1998-07-04  |  569b  |  16 lines
  1. (enable_chatting)
  2.  
  3. (defun chat_input (str)
  4.   (if (and (> (length str) 0) (equal (elt str 0) #\/))
  5.       (if (and (search "/nick " str) (> (length str) 6))
  6.       (chat_print (concatenate 'string "# " (player_name) " is known as "
  7.                    (progn (set_player_name (substr 6 (- (length str) 1) str))
  8.                       (player_name))))
  9.     (if (search "/help" str)
  10.         (if (local_player) 
  11.         (chat_print "Commands : /nick name, /help"))
  12.     (if (local_player)
  13.         (chat_print (concatenate 'string "unknown command " str)))))
  14.  
  15.     (chat_print (concatenate 'string "<" (player_name) "> " str))))
  16.